﻿Imports Lourdes.BackEnd.BC
Imports Lourdes.BackEnd.Interfaces
Imports Lourdes.BackEnd.View
Imports Lourdes.BackEnd.Modelo
Imports Lourdes.BackEnd
Namespace View


  Public Class vFacturacion


    Private _Productos As vLstProductos
    Public Property Productos() As vLstProductos
      Get
        Return _Productos
      End Get
      Set(ByVal value As vLstProductos)
        _Productos = value
      End Set
    End Property

    Private _Cabecera As vFacturaCabecera
    Public Property Cabecera() As vFacturaCabecera
      Get
        Return _Cabecera
      End Get
      Set(ByVal value As vFacturaCabecera)
        _Cabecera = value
      End Set
    End Property

    Public Sub New()
      _Productos = New vLstProductos
      _Cabecera = New vFacturaCabecera
    End Sub

    Public Function Insert() As Integer
      Return (New Facturar(Me)).Facturar()

      'Dim bcFact As BC_Factura
      'Dim bcFactDet As BC_FacturaDetalle
      'Dim intFactIdGenerado As Integer
      'Try
      '  bcFact = New BC_Factura
      '  bcFactDet = New BC_FacturaDetalle
      '  intFactIdGenerado = bcFact.FacturaCabeceraAddOne(Me._Cabecera)
      '  bcFactDet.FacturaDetalleAddFromView(Me.Productos, intFactIdGenerado)
      '  Return intFactIdGenerado
      'Catch ex As Exception
      '  Throw ex
      'End Try
    End Function

    Public Sub getvFacturacion(pFacturaId As Integer)
      Dim oFacturaBC = New BC_Factura
      Dim oProductosBC = New BC_FacturaDetalle
      _Cabecera = oFacturaBC.getvFacturaCabecera(pFacturaId)
      _Productos = oProductosBC.getvLstProductos(pFacturaId)
    End Sub

  End Class


  Public Class vFacturaCabecera

    Private _FacturaBase As Factura
    Public Property FacturaBase() As Factura
      Get
        Return _FacturaBase
      End Get
      Set(ByVal value As Factura)
        _FacturaBase = value
      End Set
    End Property


    Private _FechaFacturacion As DateTime
    Public Property FechaFacturacion() As DateTime
      Get
        Return _FechaFacturacion
      End Get
      Set(ByVal value As DateTime)
        _FechaFacturacion = value
      End Set
    End Property

    Public Sub New()
      _FacturaBase = New Factura
    End Sub
  End Class
End Namespace